home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbfloat / float.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  1.2 KB  |  39 lines
  1. VERSION 2.00
  2. Begin Form Float 
  3.    BackColor       =   &H00FFFF00&
  4.    Caption         =   "Float"
  5.    ClientHeight    =   1410
  6.    ClientLeft      =   4275
  7.    ClientTop       =   2460
  8.    ClientWidth     =   2310
  9.    Height          =   1815
  10.    Left            =   4215
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1410
  13.    ScaleWidth      =   2310
  14.    Top             =   2115
  15.    Width           =   2430
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Close"
  18.       Height          =   375
  19.       Left            =   360
  20.       TabIndex        =   0
  21.       Top             =   270
  22.       Width           =   1635
  23.    End
  24. Sub Command1_Click ()
  25.   Unload float
  26. End Sub
  27. Sub Form_Load ()
  28.   Dim OriginalParenthWnd As Integer
  29.   FloatUnloaded = True
  30. '.............. Set parent for the Float to display on top:
  31.   OriginalParenthWnd = SetWindowWord(Me.hWnd, GWW_HWNDPARENT, parent.hWnd)
  32. End Sub
  33. Sub Form_Unload (Cancel As Integer)
  34.   Dim ret As Integer
  35. '...................... Return the original parent handle:
  36.     ret = SetWindowWord(Me.hWnd, GWW_HWNDPARENT, OriginalParenthWnd)
  37.   FloatUnloaded = False
  38. End Sub
  39.